home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh40.d64 / format. string (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  697b  |  21 lines
  1. 1 REM ***** FORMATIERTER STRING *****         ***** MADE BY A.STRANZINGER ***
  2. 2 A$="FORMATIERTE AUSGABE EINES STRINGS - IDEE VON A.STRANZINGER AM 01.10.88 "
  3. 3 AD=58732:L=LEN(A$)
  4. 4 INPUT"[147] SPALTENBEGINN   3[157][157][157]";SB
  5. 5 INPUT" SPALTENENDE     36[157][157][157][157]";SE
  6. 6 INPUT" ZEILENABSTAND   3[157][157][157]";ZA
  7. 7 PRINT"[147]0---------1---------2---------3---------":POKE211,SB:SYSAD
  8. 8 FOR A=1 TO L:B$=MID$(A$,A,1)
  9. 9 IF B$=CHR$(32)THENGOSUB12:B$=MID$(A$,A,1)
  10. 10 PRINT B$;:NEXT
  11. 11 A=0:GOSUB12:GOTO8
  12. 12 X=PEEK(211):Y=PEEK(214):P=SE-X
  13. 13 FOR B=A+1 TO L:C$=MID$(A$,B,1)
  14. 14 : IF C$=CHR$(32)THEN 16
  15. 15 NEXT
  16. 16 C=B-(A+2):IF C<P THEN POKE211,X:POKE214,Y:SYSAD:RETURN
  17. 17 IFY<20THEN20
  18. 18 POKE211,0:POKE214,23:SYSAD
  19. 19 PRINT"DRUECKEN SIE F7 FUER EIN ANDERES FORMAT ":POKE198,0:WAIT198,1:RUN
  20. 20 POKE211,SB:POKE214,Y+ZA:SYSAD:A=A+1:RETURN
  21.